home *** CD-ROM | disk | FTP | other *** search
/ Windows Game Programming for Dummies (2nd Edition) / WinGamProgFD.iso / pc / DirectX SDK / DXSDK / samples / Multimedia / VBSamples / DirectShow / Editing / SlideShowVB / modGlobalData.bas < prev    next >
Encoding:
BASIC Source File  |  2001-10-08  |  2.5 KB  |  57 lines
  1. Attribute VB_Name = "modGlobalData"
  2. '*******************************************************************************
  3. '*       This is a part of the Microsoft DXSDK Code Samples.
  4. '*       Copyright (C) 1999-2001 Microsoft Corporation.
  5. '*       All rights reserved.
  6. '*       This source code is only intended as a supplement to
  7. '*       Microsoft Development Tools and/or SDK documentation.
  8. '*       See these sources for detailed information regarding the
  9. '*       Microsoft samples programs.
  10. '*******************************************************************************
  11. Option Explicit
  12. Option Base 0
  13. Option Compare Text
  14.  
  15.  
  16. ' **************************************************************************************************************************************
  17. ' * GLOBAL INTERFACE- DATA
  18. ' *
  19. ' *
  20.             Global gbl_objMediaControl As IMediaControl 'playback control
  21.             Global gbl_objTimeline As AMTimeline  'application timeline object
  22.             Global gbl_objRenderEngine As RenderEngine  'application render engine
  23.             Global gbl_objVideoWindow As IVideoWindow 'application video window for playback
  24.             
  25.  
  26.  
  27. ' **************************************************************************************************************************************
  28. ' * GLOBAL INTERFACE- CONSTANTS
  29. ' *
  30. ' *
  31.             Global Const SLIDESHOWVB_CLIPLENGTH As Double = 4#  'how long each clip lasts on the timeline
  32.             Global Const SLIDESHOWVB_VIDEOTYPE As String = "{73646976-0000-0010-8000-00AA00389B71}"
  33.             Global Const SLIDESHOWVB_AUDIOTYPE As String = "{73647561-0000-0010-8000-00AA00389B71}"
  34.  
  35.  
  36. ' **************************************************************************************************************************************
  37. ' * GLOBAL INTERFACE- APPLICATION ENTRY POINT
  38. ' *
  39. ' *
  40.             ' ******************************************************************************************************************************
  41.             ' * procedure name: Main
  42.             ' * procedure description:  Application Entry Point.
  43.             ' *
  44.             ' ******************************************************************************************************************************
  45.             Public Sub Main()
  46.             On Local Error GoTo ErrLine
  47.             
  48.             Load frmMain
  49.             frmMain.Move 0, 0
  50.             frmMain.Visible = True
  51.             Exit Sub
  52.             
  53. ErrLine:
  54.             Err.Clear
  55.             Exit Sub
  56.             End Sub
  57.